home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.4.bas < prev    next >
BASIC Source File  |  1996-12-24  |  473b  |  16 lines
  1. 100  REM +---------------------+
  2. 110  REM !                     !
  3. 120  REM ! Basis B -> Basis 10 !
  4. 130  REM !                     !
  5. 140  REM +---------------------+
  6. 141  REM Nur f}r B < 11
  7. 142  REM Keine Ziffer darf gr|~er sein als B-1
  8. 150  HOME : INPUT "WELCHE BASIS? ";B
  9. 160  INPUT "WELCHE ZAHL? ";Z$
  10. 170 L =  LEN(Z$)
  11. 180  FOR I = L TO 1  STEP  -1
  12. 190 Z =  VAL( MID$ (Z$,I,1)): REM Ziffer
  13. 200 S = B ^(L -I): REM Stellenwert
  14. 210 D = D +Z *S
  15. 220  NEXT 
  16. 230  PRINT : PRINT D